program PointerMass;

{$APPTYPE CONSOLE}
type
intar = array of integer;
var
pm : ^intar;
i : integer;
begin
  new(pm);
  randomize;
  for i:=0 to 99 do
  begin
    pm^[i] := random(100);
  end;
  dispose(pm);
end.
 